1 Public Class FrmSALES_COLLECTION_VOID_PRINT
2
3     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
4         Me.Close()
5     End Sub
6
7     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
8         Dim Report As New FrmREPORTS
9         Rpt_SqlStr =
"SELECT * FROM TBL_Sales_Sold_Detail WHERE Sales_ID IN " & _
10                      
"(SELECT Sales_ID FROM TBL_Sales_Sold WHERE Sales_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Sales_Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "')"
11         globalFRM =
"Sales_Report_VOID"
12         Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Sales Collection Void ")
13         Me.Close()
14         Report.Show()
15         
'FrmREPORTS.Show()
16     End Sub
17 End Class


Gõ tìm kiếm nhanh...